var X,B,D: TVec;
V: TMtx;
begin
CreateIt(X,B,D);
CreateIt(V);
try
B.SetIt(false,[0,2,3]);
V.SetIt(3,3,false,[1,2,3,
3,4,5,
6,7,7]);
V.SVDSolve(B,X,D); // matrix V can be non-quadraticfinally
FreeIt(X,B,D);
FreeIt(V);
end;
end;
Copyright (c) 1999-2024 by Dew Research. All rights reserved.
